home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SNNSV32.ZIP / SNNSv3.2 / xgui / sources / bn_JordElm.ph < prev    next >
Encoding:
Text File  |  1994-04-25  |  3.5 KB  |  117 lines
  1. /*****************************************************************************
  2.   FILE           : bn_JordElm.ph
  3.   SHORTNAME      : bn_JordElm.ph
  4.   SNNS VERSION   : 3.2
  5.  
  6.   PURPOSE        : private header file for corresponding '.c' file
  7.   NOTES          :
  8.  
  9.   AUTHOR         : Tobias Soyez
  10.   DATE           : 09.11.1993
  11.  
  12.   CHANGED BY     : 
  13.   IDENTIFICATION : @(#)bn_JordElm.ph    1.2 3/2/94
  14.   SCCS VERSION   : 1.2
  15.   LAST CHANGE    : 3/2/94
  16.  
  17.              Copyright (c) 1990-1994  SNNS Group, IPVR, Univ. Stuttgart, FRG
  18.  
  19. ******************************************************************************/
  20.  
  21.  
  22. #ifndef _BN_JORDANELMAN_DEFINED_
  23. #define _BN_JORDANELMAN_DEFINED_
  24.  
  25.  
  26. /* --------------------  global definition section  ------------------------ */
  27.  
  28. void bn_create_jordan (void);
  29. void bn_create_elman  (void);
  30.  
  31.  
  32.  
  33. /* -------------------  private definition section  ------------------------ */
  34.  
  35. #define MAX_NO_OF_LAYERS        10
  36. #define IF_ERROR_RETURN(error_code)  if (error_code != KRERR_NO_ERROR) \
  37.                                      return (error_code)
  38.  
  39.  
  40. static int      bn_jordan_open = 0 ;
  41. static Widget   baseWidget ;
  42. static Widget   jordanUnitWidget[3], jordanColWidget[3] ;
  43.  
  44. static void     bn_jordan_donePROC   (void) ;
  45. static void     bn_jordan_createPROC (void) ;
  46. static krui_err bn_jordan_createNet  (int IUnits, int HUnits, int OUnits,
  47.                                       int ICols , int HCols , int OCols ) ;
  48.  
  49.  
  50.  
  51. static int      bn_elman_open = 0 ;
  52. static int      no_of_layers  = 3 ;
  53. static int      layer[MAX_NO_OF_LAYERS]   ;
  54. static int      columns[MAX_NO_OF_LAYERS] ;
  55. static Bool     out_context ;
  56.  
  57. static Widget   elmanUnitWidget[MAX_NO_OF_LAYERS],
  58.                 elmanColWidget[MAX_NO_OF_LAYERS],
  59.                 elmanLabelWidget[MAX_NO_OF_LAYERS],
  60.                 elmanSpaceWidget[MAX_NO_OF_LAYERS],
  61.                 elman_box, elman_form[3], w_headline,
  62.                 t_yes, t_no;
  63.  
  64. static void     bn_elman_noPROC           (void) ;
  65. static void     bn_elman_yesPROC          (void) ;
  66. static void     bn_elman_donePROC         (void) ;
  67. static void     bn_elman_createPROC       (void) ;
  68. static void     bn_elman_insertPROC       (void) ;
  69. static void     bn_elman_deletePROC       (void) ;
  70. static void     bn_elman_create_dialogrow (int i, char *str) ;
  71. static void     bn_elman_getFromWidget    (void) ;
  72. static krui_err bn_elman_createNet        (void) ;
  73.  
  74.  
  75. static int      createUnitLayer (int  no_of_units, 
  76.                                  int  io_type,
  77.                                  char *act_func_name,
  78.                                  char *out_func_name,
  79.                                  char *unit_name) ;
  80.  
  81.  
  82. static krui_err connectFull     (int       from_unit,
  83.                                  int       no_of_source_units,
  84.                                  int       to_unit,
  85.                                  int       no_of_target_units,
  86.                                  FlintType weight) ;
  87.  
  88.  
  89. static krui_err connectOneToOne (int       from_unit,
  90.                                  int       to_unit,
  91.                                  int       no_of_units,
  92.                                  FlintType weight) ;
  93.  
  94.  
  95. static krui_err connectSelfRec  (int       unit_no,
  96.                                  int       no_of_units,
  97.                                  FlintType weight) ;
  98.  
  99.  
  100. static void     fixWindowSize   (Widget window) ;
  101.  
  102. #endif
  103.  
  104.  
  105. /*****************************************************************************
  106.                         E N D     O F     F I L E
  107. ******************************************************************************/
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.